unit Ai_DoNothing;

{
  A dummy AI wich does nothing
}

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, basicAI;

type

  { TAI_DoNothing }
  TAI_DoNothing = class (TBasicAI)
    public
      procedure act; override;
  end;

implementation

uses
  SystemManager;

{ TAI_DoNothing }

procedure TAI_DoNothing.act;
begin

end;

initialization
  GlobalSystemManager.RegisterAISystem(TAI_DoNothing);

end.

